home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1998 February / Amiga-CD 1998 #2.iso / software / dito / steuerung < prev    next >
AmigaDOS Script File  |  1978-03-23  |  3KB  |  154 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "assign"
  14.     set vassign 1
  15. endif
  16. if "[param]" EQ "unassign"
  17.     set vunassign 1
  18. endif
  19. if "[param]" EQ "start"
  20.     set vassign 1
  21.     set vstart 1
  22.     set vunassign 1
  23. endif
  24. if "[param]" EQ "install"
  25.     set vinstall 1
  26. endif
  27. set binfo        1
  28. set bcopy        1
  29. set bassign      1
  30. set bunassign    1
  31. set bstart       1
  32. set binstall     1
  33.  
  34.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  35.     set nummer 0
  36.     if $binfo EQ 1
  37.          echo >>t:tmpsteuerung " Info" NOLINE
  38.          set nummer `eval $nummer + 1`
  39.          set ninfo $nummer
  40.     endif
  41.     if $bcopy EQ 1
  42.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  43.          set nummer `eval $nummer + 1`
  44.          set ncopy $nummer
  45.     endif
  46.     if $bassign EQ 1
  47.          echo >>t:tmpsteuerung " Assign" NOLINE
  48.          set nummer `eval $nummer + 1`
  49.          set nassign $nummer
  50.     endif
  51.     if $bunassign EQ 1
  52.          echo >>t:tmpsteuerung " Unassign" NOLINE
  53.          set nummer `eval $nummer + 1`
  54.          set nunassign $nummer
  55.     endif
  56.     if $bstart EQ 1
  57.          echo >>t:tmpsteuerung " Start" NOLINE
  58.          set nummer `eval $nummer + 1`
  59.          set nstart $nummer
  60.     endif
  61.     if $binstall EQ 1
  62.          echo >>t:tmpsteuerung " Installieren" NOLINE
  63.          set nummer `eval $nummer + 1`
  64.          set ninstall $nummer
  65.     endif
  66.     if "[param]" EQ ""
  67.         echo >>t:tmpsteuerung " Ende" NOLINE
  68.         execute >nil: t:tmpsteuerung
  69.         delete >nil: t:tmpsteuerung
  70.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  71.         if $reqerg[$$] EQ 0
  72.             skip Ende
  73.         endif
  74.     endif
  75.     if $reqerg[$$] EQ $ninfo
  76.         set vinfo 1
  77.     endif
  78.     if $reqerg[$$] EQ $ncopy
  79.         set vcopy 1
  80.     endif
  81.     if $reqerg[$$] EQ $nassign
  82.         set vassign 1
  83.     endif
  84.     if $reqerg[$$] EQ $nunassign
  85.         set vunassign 1
  86.     endif
  87.     if $reqerg[$$] EQ $nstart
  88.         set vassign 1
  89.         set vstart 1
  90.         set vunassign 1
  91.     endif
  92.     if $reqerg[$$] EQ $ninstall
  93.         set vinstall 1
  94.     endif
  95. endif
  96.  
  97. if $vinfo EQ 1
  98. ;>>>>>>>> Hier Infotext eintragen
  99.     :c/Metatool :software/DITO/Docs/Deutsch/dito.guide FT=GUIDE
  100. endif
  101. if $vassign EQ 1
  102. ;>>>>>>>> Hier steht das Assign
  103.     Assign >nil: DITO: :software/DITO/
  104.     if $vstart NOT EQ 1
  105.         :c/requestchoice20 >nil: Information "Assign angelegt!" OK
  106.     endif
  107. endif
  108. if $vstart EQ 1
  109. ;>>>>>>>> Hier steht das Startprogramm
  110.     cd :software/DITO/
  111.     Dito
  112. endif
  113. if $vunassign EQ 1
  114. ;>>>>>>>> Hier steht das Unassign
  115.     Assign >nil: DITO: remove
  116.     if $vstart NOT EQ 1
  117.         :c/requestchoice20 >nil: Information "Assign entfernt!" OK
  118.     endif
  119. endif
  120. if $vcopy EQ 1
  121.     execute :c/Verzeichniskopieren ":software/DITO/" "DITO" 2997248
  122. endif
  123. if $vinstall EQ 1
  124. ;>>>>>>>> Hier Install-Skript eintragen
  125.     assign l: :l add
  126.     :c/WBstarter >nil: :software/DITO/Install
  127.     assign l: :l remove
  128.     skip Ende
  129. endif
  130.  
  131. unset binfo
  132. unset vinfo
  133. unset ninfo
  134. unset bassign
  135. unset bunassign
  136. unset vassign
  137. unset vunassign
  138. unset nassign
  139. unset nunassign
  140. unset bstart
  141. unset vstart
  142. unset nstart
  143. unset binstall
  144. unset vinstall
  145. unset ninstall
  146. unset bcopy
  147. unset vcopy
  148. unset ncopy
  149. if "[param]" EQ ""
  150.     execute Steuerung
  151. endif
  152. LAB Ende
  153. unsetenv reqerg[$$]
  154.